Cream of the Crop 26

home *** CD-ROM | disk | FTP | other *** search

/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / soda11.zip / SODA.REF < prev

Wrap

Text File | 1997-06-26 | 7KB | 225 lines

@#start @do moveback @do write `r1 @clearblock 21 21 @do move 3 21 @do write `r0 `2You see a strange machine. Do you approach? [`0Y`2/`0N`2] :`x @do readspecial `s01 YN @if `s01 is N then do @begin @do saybar You ignore it and continue on your way @end @clear screen @show ?7hD██████████████████████████████ ████████Red Dragon Cola ██████ ██████████████████████████████ ████┌──┐██┌──┐██┌──┐██A C┌──┐████ ████└──┘██└──┘██└──┘██A C└──┘████ ███████████████████████ $2████ ████████████████████████ ║████CA CThere is a strange looking machine here. █████████ █████████████▄███A C█ It is very colorful, and has some buttons. It█A C██████████ ████████████████ appA Cears that you are supposed to put 2 gold ███████████████ ██████████████ piA Ceces in a small slot. ███████████████ ██████████████ ██████████████████████████████ ██████████████████████████████ ██████████████████████████████ ████████████▀▀▀▀▀▀▀███████████ ██████████████████████████████ @key bottom @clear screen @show Do you drop the coins in? @choice Yes No @if response is 2 then do @begin @drawmap @update @closescript @end @if money < 2 then do @begin @do goto broke @end @do money - 2 @do `p95 random 100 @if `p95 < 81 then do @begin @do goto soda @end @if `p95 < 91 then do @begin @do goto green @end @if `p95 < 96 then do @begin @do goto blue @end @if `p95 = 96 then do @begin @do goto red @end @if `p95 < 99 then do @begin @do goto gold @end @do goto silver @#soda @clear screen @show ?7hD▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ██████████████████ ███ ██████████████ ████ █████████████ █████ ███Red██████ ██████ ███Dragon██ ███████ ██Cola█COooh! Red DA Cragon Cola. How refreshing! ███████████ ██████ ████████████ █████ ██████████ █ ████ █ ██ █ ███ ██████████ █████ █████████ ████████ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @key @do goto done @#green @clear screen @show ?7hD▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ██████████████████ ██████████████████ ██████████████████ ██████████████████ █████████Green████ ███████████Potion█CWow! This cA Can contains Green Potion! ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @key @do `i05 + 1 @do goto done @#blue @clear screen @show ?7hD▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ██████████████████ ██████████████████ ██████████████████ ██████████████████ █████████Blue█████ ███████████Potion█CWow! This cA Can contains Blue Potion! ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @key @do `i40 + 1 @do goto done @#red @clear screen @show ?7hD▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ██████████████████ ███ ██████████████ ████ █████████████ █████ ███ ██████ ██████ ███Red ██ ███████ Potion█CWow! This can contains Red PA Cotion! ███████████ ██████ ████████████ █████ ██████████ █ ████ █ ██ █ ███ ██████████ █████ █████████ ████████ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @key @do `i52 + 1 @do goto done @#gold @clear screen @show ?7hD▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████Gold████ ███████████Potion█CWow! This cA Can contains Gold Potion! ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @key @do `i53 + 1 @do goto done @#silver @clear screen @show ?7hD▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ██████████████████ ██████████████████ ██████████████████ ██████████████████ █████████Silver███ ███████████Potion█CWow! This can contains SilA Cver Potion! ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ██████████████████ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @key @do `i54 + 1 @do goto done @#done @drawmap @update @closescript @#broke @show You fumble through your pockets, but cannot find 2 gold pieces. @key @do goto done